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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

PURPOSE: 

COMPUTER 

CONFIGURATION: 


SUBROUTINES 
REQUIR ED: 

STORAGE: 

TIMING: 

LOADING 

PROCEDURE: 

USE: 


PROGRAM DESCRIPTION 


Catalog No. 310005A 


810A Relocatable Object Tape Copy 
W. A. Speer 
July 28, 1967 

To copy relocatable object paper tapes onto paper tape or 
magnetic tape. 


810A with ASR-33 High Speed Reader/Punch or Magnetic 
Tape Optional 


H$WR 330006A 
B$WRM7 330004A 

507 locations 
o 

N/A 


Load program (relocatable) with the 81 0A Standard Paper 
Tape Load/Dump (Catalog No. 300001B). 

This relocatable program may be used to combine separately 
assembled object tapes each of which has an end-of-job code 
into one continuous tape. The input tape must be in the 
relocatable object tape format. 

Switch Settings: 

SW 0 set - High Speed Paper Tape 

reset- ASR-33 Paper Tape input 
SW 2 set - Magnetic. Tape output 
reset- Paper Tape input 

SW 3 To be set or left in neutral position when required 

by the program. In the set position, the end-of- 
job code just read will be recognized and written 
on the output device. The job is then terminated. 
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00000 00000000 
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810A RELOCATABLE OBJECT TAPE COPY CATALOG NO. 310005A • 

PROGRAMMER W A SPEER . 

JULY 28, 1967 • 

PURPOSE T0 COPY OBJECT PAPER TAPE ONTO PAPER • 

TAPE 0R MAGNETIC TAPE. THE PROGRAM CONTAINS * 

AN OPTION TO SUPPRESS END OF JOB CODES FOUND * 

ON PAPER TAPES WHICH ALLOWS COMBINING SEVERAL 5 • 

SEPARATELY ASSEMBLED PFOGRAMS. • 

SWITCH SETTINGS * 

SW 0 SET - HIGH SPEED PAPES TAPE I/P * 

SW ? SET - MA3NETIC TAPE 0/P (TRANSPORT 1) * 

SW 3 - TO BE SET OR LEFT NEUTRAL WHEN • 

REQUESTED BY THE PROGRAM. IN THE # 

SET POSITION THE END OF JOB • 

CODE JUST READ WILL BE * 

REC8G0NIZED, WRITTEN ON THE * 

OUTPUT DEVICE, AND THE JOB * 

TERMINATED. « 

R EL- 

BINARY PAPER TAPE TO BINARY PAPER TAPE OR MAG TAPE; 


ooooo 

00130402 

STRT 

$N5 

2 

IS 0/P PAPER TP. OR MAG 

00001 

11000330 


BRU 

HA G T 

ON - MAGNETIC TAPE 

00002 

02077552 


lba 

= -150 

OFF - PAPER TAPE 

00003 

12000123 


SPB 

PL DR 

PUNCH LEADER 

00004 

00130400 

LOOP 

SNS 

0 

WHICH PAPER TAPE UNIT 

00005 

11000012 


BRU 

A2 

ON - H.S.P.T. 

00006 

12000252 


SPB 

ASRR 

OFF - ASR-33 P.T. I/P 

00007 

25400400 


DAG 

BIN 


00010 

00000067 


DATA 

55 


00011 

11000015 


BRU 

CK 

60 TO CHECK SUM ROUTINE 






o 


o 
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Catalog No. 

0040 

00012 

12000143 

A2 

SP8 

HSTI 

HI8H SPEED TAPE I/P 

0041 

00013 

25400400 


DAC 

BIN 


0042 

00014 

00000067 


DATA 

55 


0043 

00015 

12000104 

CK 

SPB 

CKSH 

CHECK SUM 

0044 

00016 

12000033 


SPB 

CKS 

CHECK F0R A % 

0045 

00017 

11100021 


BRU 

*♦2 

N0 % FOUND 

0046 

00020 

11000004 


BRU 

L#BP 

S FOUND BUT IGNORED 

0047 

00021 

00130400 


SNS 

0 

which paper tape unit 

0046 

00022 

11000027 


BRU 

82 

0N - H. S. P. T , 

0049 

00023 

12000222 


SPB 

ASRP 

0FF - ASR-33 0/P 

0050 

00024 

25400400 


DAC 

BIN 


0051 

00025 

00000067 


DATA 

55 


0052 

00026 

11000004 


BRU 

L00P 

G0 BACK F0R M0R£ I/P 

0053 

00027 

12000172 

B2 

SPB 

HST0 

HIGH SPEED PUNCH 

0054 

00030 

25400400 


DAC 

BIN 


0055 

00031 

00000067 


DATA 

55 


0056 

00032 

11000004 


BRU 

L00P 

G0 BACK F0R M0RE I/P 

0057 

00033 

00000000 

• 




0058 

00033 

00000000 

• CHECK F0R A * 


0059 

00033 

00000000 

• 




0060 

00033 

00000000 

CKS 

• •• 

*• 


0061 

00034 

01000400 


LA A 

BIN 

PICK UP FIRST Hti 0F BINARY 

0062 

00035 

15050000 


CMA 

* * 130000 

IS IT « i 

0063 

00036 

11200033 


8RU* 

CKS 

N0 - RETURN 

0064 

00037 

11100041 


BRU 

*♦2 

YES 

0065 

00040 

11200033 


BRU* 

CKS 

Nfe) - RETURN 

0066 

00041 

12000301 


SPB 

ASR-0 

ASK 0PERAT0R ABOUT ACTION 

0067 

00042 

25400301 


DAC 

I NQR 

TO BE TAKEN 

0066 

00043 

00000006 


DATA 

6 


0069 

00044 

OOOOOOOO 


HLT 


STOP ANU WAIT FOR REPLY 

0070 

00045 

00130403 


SNS 

3 

IS IT T0 BE IGN0REP 

0071 

00046 

11100031 


BRU 

#♦3 

N0 - WRITE IT BUT 

0072 

00047 

14000033 


IMS 

CKS 

YES - SET UP RETURN 

0073 

00050 

11200033 


BRU* 

CKS 

RETURN 

0074 

00051 

00130400 


SNS 

0 

WHICH PAPER TAPE UNIT 

0075 

00052 

11000057 


BRU 

AA2 

H.S.P.T. 

0076 

00053 

12000222 


SPB 

ASRP 

ASR-33 PUNCH 

0077 

00054 

25400400 


DAC 

BIN 


0078 

00055 

00000067 


data 

55 


0079 

00056 

11000062 


BRU 

LOR 

60 T0 LEADER ROUTINE 


310005A 


<• 



o 
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0060 

00057 

12000172 

AA2 

SPB 

HST0 

0091 

00060 

25400400 


DAC 

BIN 

0092 

00061 

00000067 


data 

55 

0093 

00062 

00130400 

LDR 

SNS 

0 

0094 

00063 

11000071 


BRU 

LZ 

0095 

00064 

01000472 


LAA 

CRLF 

0066 

00065 

00170101 


A0P 

1,W 

0097 

00066 

00001016 


LSL 

8 

0096 

00067 

00170101 


ABP 

1,W 

0099 

00070 

11000075 


BRU 

FIN 

0090 

00071 

01000472 

L2 

LAA 

CRLF 

0091 

00072 

00170102 


A0P 

2,W 

0092 

00073 

00001016 


LSL 

B 

0093 

00074 

00170102 


A0P 

2# W 

0094 

00075 

02077521 

FIN 

LB A 

a-175 

0095 

00076 

12000123 


SPB 

PLDR 

0096 

00077 

12000301 


SPB 

ASRio 

0097 

00100 

25400477 


DAC 

E0J 

0099 

00101 

00000002 


DATA 

2 

0099 

00102 

00000000 


HLT 


0100 

00103 

11100102 


BRU 

*-l 

0101 

00104 

00000000 




0102 

00104 

00000000 

* CHECK SUM R0UTINE 

0103 

00104 

00000000 

* 



0104 

00104 

00000000 

CKSM 


*» 

0105 

00105 

02000474 


L8A 

D54 

0106 

00106 

00000003 


CLA 


0107 

00107 

05400466 


AMA 

BIN*54 #1 

0100 

00110 

00000026 


IBS 


0109 

00111 

11100107 


BRU 

»-2 

0110 

00112 

05000466 


AMA 

BIN+54 

oi ii 

00113 

00000022 


SAZ 


0112 

00114 

11000116 


BRU 

ERR 

0113 

00115 

11200104 


BRU* 

CKSM 

0114 

00116 

12000301 

ERR 

SPB 

ASR0 

0115 

00117 

25400475 


DAC 

MESU 

0116 

00120 

00000002 


DATA 

2 

0117 

00121 

OOOOOODO 


HLT 


0119 

00122 

11200104 


BRU* 

CKSM 

0119 

00123 

00000000 

» 




Oo 


o 


Catalog No. 310005A 

HIGH SPEED PUNCH 


WHICH UNIT 
H.S.P.T. 

ASP-33 - PICK UP CR,Lf 
0/P CARRIAGE RETURN 
SHIFT 

0/P LINE FEED 

G0 AR0UND 

PICK UP CR» LF 

0/P CARRIAGE RETURN 

SHIFT 

0/P LINE FEED 
0/P LEADER 

TYPE "E0J" 0N ASR-33 


ST0P 


LOAD B WITH NEG WD CT 
ZERO A ACCUMULATOR 
ADD BINARY DATA T0 A 
ARE WE FINISHED 
N0 - G0 BACK 
ADD CKSM T0 A 
IS THE SUM ZER0 
N0 - ERROR 

YES - RETURN T0 PROG 
TYPE BUT ERROR MESSAGE 



o 
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0120 

00123 

00000000 

* 

PUNCH LEADER ROUTINE 

0121 

00123 

00000000 

• 




0122 

00123 

oooooooo 

PLDR 


*• 

0123 

00124 

00000003 



CLA 


0124 

00125 

00130400 



SNS 

0 

0i?5 

00126 

11000135 



BRU 

ARND 

0126 

00127 

00130101 



CEU 

l.w 

0127 

00130 

00002000 



DATA 

♦2000 

0126 

00131 

00170101 



A0P 

l.w 

0129 

00132 

00000026 



IBS 


0130 

00133 

11100131 



BRU 

»-2 

0131 

00134 

11200123 



BRU* 

PLDR 

0132 

00135 

00130102 

ARNO 

CEU 

2.W 

0133 

00X36 

00004000 



DATA 

♦4000 

0134 

00137 

00170102 



A0P 

2. W 

0135 

00140 

00000026 



IBS 


0136 

00141 

11100137 



BRU 

»-2 

0137 

00142 

11200123 



BRU* 

PLDR 

0138 

00143 

oooooooo 

» 




0139 

00143 

OOOOOOOO 

ft 

HIGH SPEED PAPER TAPE 

0140 

00143 

OOOOOOOO 

ft 




0141 

00143 

oooooooo 

HSTI 

»»* 

»• 

0142 

00144 

01200143 



laa* 

HSTI 

0143 

00145 

03000470 



5TA 

ADDR 

0144 

00146 

14000143 



IMS 

HSTI 

0145 

00147 

01200143 



la A* 

HSTI 

0146 

U0150 

14000143 



IMS 

HSTI 

0147 

00151 

00000002 



MEG 


0148 

00152 

00000005 



TAB 


0149 

00153 

00130102 



CEU 

2.W 

0150 

00154 

00001000 



data 

♦1000 

0151 

00155 

00170302 



A I P 

2, W 

0152 

00156 

15000377 



CMA 

b*D00377 

0153 

00157 

11100155 



BRU 

b-2 

0154 

00160 

1U0Q162 



BRU 

*♦2 

0155 

00161 

11100155 



BRU 

e - 4 

0156 

00162 

00170302 

PTIP 

A I P 

2 * W 

0157 

00163 

00001016 



lsl 

6 

oi&e 

00164 

00174302 



AI P 

2.W.R 

0159 

00165 

03200470 



STA* 

AUDR 


o 


oo 


Catalog No. 310005A 


PUT ZER0*S IN A 
WHICH PAPER TAPE UMJT 
0N - H.S.P.T. 

0FF - INITIALIZE ASH-33 

0/P A BLANK 

FINISHED 

N0 

YES - RETURN 
INITIALIZE H.S.P.T. 

punch pbwer bn 
0/P a blank 
FINISHED 
N0 

YES - RETURN 
READ R0UTINE 


PICK UR ADDRESS 0F BUF 
ST0RE IT 

INCREMENT Tid WD CT 

PICK UP WD CT 

SET UP RETURN 

NEGATE WD CT 

PUT IT IN B F0R INDEX 

INITIALIZE H.S.P.T. 

reader enable 

READ FIRST CHAR 

IS IT A DELETE CODE 

MB - RFAD AGAIN 

YES - START READING BINARY 

N0 - READ AGAIN 

READ FIRST CHAR 0F WD 

SHIFT 

READ SECOND CHAR 0F WD 
ST0RE WD 



o 


o 


co 
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0160 

00166 

14000470 


IMS 

A DDR 

0161 

00167 

00000026 


IBS 


0162 

00170 

1100016? 


BRU 

PTIP 

0163 

00171 

11200143 


BRU* 

HSTI 

0164 

00172 

00000000 

• 



0165 

00172 

00000000 

* 0/P 

' binary data 

0166 

00172 

00000000 

• 



0167 

00172 

00000000 

HSTiS 

»«» 

»» 

0163 

00173 

01200172 


LAA* 

HST0 

0169 

00174 

03000470 


STA 

ADDR 

0170 

00175 

1400017? 


IMS 

HST0 

0171 

00176 

01200172 


LAA# 

HSTB 

0172 

00177 

14000172 


IMS 

HST0 

0173 

00200 

00000002 


NEG 


0174 

00201 

00000005 


TAB 


0175 

00202 

00130102 


CEU 

2» W 

0176 

00203 

00004000 


DATA 

* 4000 

0177 

00204 

0100047? 


LAA 

CRLF 

0173 

00205 

00170102 


A0P 

2# w 

0179 

00206 

00001016 


LSL 

B 

0100 

00207 

00170102 


A0P 

2# W 

0101 

00210 

01000473 


LAA 

DELE 

0102 

00211 

00170102 


A0P 

2» W 

0183 

00212 

01200470 

BCK 

LAAft 

ADDR 

0184 

00213 

00170102 


A0P 

2 ( W 

0185 

00214 

00001016 


LSL 

B 

0186 

00215 

00170102 


A0P 

2, W 

0107 

00216 

14000470 


IMS 

ADDR 

0186 

00217 

00000026 


IBS 


0109 

00220 

11000212 


BRU 

BCK 

0190 

00221 

11200172 


BRU® 

HST0 

0191 

00222 

00000000 

ft 



0192 

00222 

00000000 

ft 0/P 

' BINARY DATA 

0193 

00222 

oooooooo 

« 



0194 

00222 

00000000 

ASRP 

»»» 

ftft 

0195 

00223 

01200222 


LAA« 

ASRP 

0196 

00224 

03000470 


STA 

ADDR 

0197 

00225 

14000222 


IMS 

ASRP 

019G 

00226 

01200222 


LAAft 

ASRP 

0199 

00227 

14000222 


IMS 

ASRP 


Catalog No. 310005A 

increment tb next wd 

FINISHED 

N0 - READ AGAIN 

RETURN 

0N HIGH SPEED PUNCH 


PICK UP ADDRESS M BUF: 

ST0RE IT 

INCREMENT T0 W0RD COUNT 
PICK UP WORD C0UNT 
SET UP RETURN ADDRESS 
NEGATE W0RD 00UNT 
PUT IT IN B F0R COUNTER 

initialize punch 

PUNCH POWER 0N 

PICK UP CARR RET , LINE FEED 

0/P CARRIAGE RETURN CODE 

SHIFT 

0/P LINE FEED CODE 
PICK UP DELETE CODE 
0/P PELcTE CRUE 
PICK UP FIRST WD OF RUF 
0/P F1RST CHAR 0F WORD 
SHIFT 

0/P SECOND CHaR f*F WORD 
INCREMENT T8 NEXT WORD 
TEST WD COUNT - FINISHED 
no - up back for nfxt wd 
YES - RETURN 

ON ASR-33 PUNCH 


PICK UP A0DRF5S 0F BUF 
STORE IT 

INCREMENT T0 WORD COUNT 
PICK UP WORD COUNT 
SET UP RETURN ADDRESS 


oo 








CO o 
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0200 

00230 

00000002 


NEQ 


0201 

00231 

00000005 


TAB 


020? 

00232 

00130101 


CEU 

i*w 

0203 

00233 

00005000 


DATA 

*5000 

0204 

00234 

01000472 


LAA 

CRLF 

0205 

00235 

00170101 


A0P 

lfW 

0206 

00236 

00001016 


USL 

B 

0207 

00237 

00170101 


A63P 

If H 

02 OB 

00240 

01000473 


LAA 

DELE 

0209 

00241 

00170101 


ASP 

i#w 

0210 

00242 

01200470 

AON 

LAA» 

AUDR 

0211 

00243 

00170101 


A0P 

1 » H 

0212 

00244 

00001016 


LSL 

B 

0213 

00245 

00170101 


A0P 

if h 

0214 

00246 

14000470 


IMS 

ADDR 

0215 

00247 

00000026 


IBS 


0216 

00250 

11000242 


BRU 

AGN 

0217 

00251 

11200222 


BRU» 

ASRP 

0218 

00252 

00000000 

• 



0219 

00252 

00000000 

* READ BINARY DATA 

0220 

00252 

00000000 

» 



0221 

00252 

00000000 

ASRR 

«»» 


0222 

00253 

01200252 


laa» 

ASRR 

0223 

00254 

03000470 


STA 

ADDR 

0224 

00255 

14000252 


IMS 

ASRR 

0225 

00256 

01200252 


LAA* 

ASRR 

0226 

00257 

14Q00252 


IMS 

ASRR 

0227 

00260 

00000002 


NEO 


0228 

00261 

00000005 


TAB 


0229 

00262 

00130101 


CEU 

1 , w 

02 3D 

00263 

00004000 


DATA 

•4000 

0231 

00264 

00170301 


A I P 

1, w 

0232 

00265 

15000377 


DMA 

* * 000377 

0233 

00266 

11100264 


BRU 

*-2 

0234 

00267 

11100271 


BRU 

*♦? 

0235 

00270 

11100264 


BRU 

• -4 

0236 

00271 

00170301 

Mfcj R E 

A I P 

1# H 

0237 

00272 

□0001016 


LSL 

B 

0238 

00273 

U01743U1 


AlP 

1 , H , R 

0239 

00274 

03200470 


sta» 

ADDR 


o 
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NEGATE H3RD C0UNT 
PUT IT IN B F0p COUNTER 
INITIALIZE PUNCH 

PICK UP CARR RET, LINE FEED 
0/P CARRIAGE RETURN C0DE 
SHIFT 

0/P LINE FEED CdDfc 
PICK UP DELETE CPDE 
0/P DELETE C.0UF 
PICK UP FIRST WU 0F 8UF 
0/P FIRST CHAR 0F W0RD 
SHIFT 

0/P SEC0ND CHAR DF W3RD 
INCREMENT TH NEXT W0RD 
TEST WD C0UNT - FINISHED 
N» - U0 BACK FDR NEXT HD 
YES -RETURN 

ASR-33 


PICK UP ADDRESS 0F BUF 
ST0RE IT 

INCREMENT T0 R0RD CHUNT 
PICK UP W0RD U0UNT 
SET UP RETURN ADDRESS 
NEGATE WARD CtfUNT 
PUT IT IN B FHR CHUNTER 
INITIALIZE READER 
READER M0DE SETUP 

pick up first char 
Is it a delete cede 

N0 - READ AGAIN 

YES - START READING BINARY 

Ntf - READ AGAIN 

I/P FIRST CHAR 0F WD 

SHIFT 

I/P SECOND CHAP 0F HD 
ST0RE W0RD IN BUF 


oo 
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o 


0Z40 

00275 

14000470 


IMS 

ADDR 

0241 

00276 

00000026 


IBS 


0242 

00277 

11000271 


BRU 

MORE 

0243 

00300 

11200252 


BRU* 

ASRR 

0244 

00301 

00000000 

» 



0245 

00301 

00000000 

# 

ASR-33 

i KEYBOARD 

0246 

00301 

00000000 

• 



0247 

00301 

00000000 

A5R0 

• •* 

*• 

02 4 B 

00302 

01200301 


laa* 

ASR0 

0249 

00303 

03000467 


STA 

HOLD 

0250 

00304 

14000301 


IMS 

ASR0 

0251 

00305 

01200301 


LAA* 

ASR0 

0252 

00306 

14000301 


IMS 

ASR0 

0253 

00307 

00000002 


NED 


0254 

00310 

00000005 


TAB 


0255 

00311 

010004/2 


LAA 

CRLF 

0256 

00312 

12000323 


SPB 

BP 

0257 

00313 

01200467 

0PUT 

laa* 

H0LO 

0256 

00314 

12000323 


SPB 

0P 

0259 

00315 

14000467 


IMS 

H0LD 

0260 

00316 

00000026 


IBS 


0261 

00317 

11000313 


BRU 

BPUT 

0262 

00320 

01000471 


LAA 

CRBL 

0263 

00321 

12000323 


SPB 

0P 

0264 

00322 

11200301 


BRU* 

A5R0 

0265 

00323 

00000000 

0P 

» * » 

» • 

0266 

00324 

00170101 


A0P 

1#N 

U267 

00325 

00001016 


LSL 

8 

0266 

00326 

00170101 


A0P 

1, w 

0269 

00327 

11200323 


BRU* 

BP 

0270 

00330 

OQOOOOOO 

* 



0271 

00330 

00000000 

• MAO TAPE MAIN 

0272 

00330 

00000000 

• 



0273 

00330 

00130400 

MAG T 

SNS 

D 

0274 

00331 

11000336 


BRU 

A2? 

0275 

00332 

12000252 


SPB 

ASRR 

0276 

00333 

25400400 


U AC 

BIN 

0277 

00334 

00000067 


DATA 

55 

0276 

00335 

11100341 


BRU 

* ♦ 4 

0279 

00336 

12000143 

A22 

SPB 

HST1 


oo 


Catalog No. 310005A 

INCHEMENT T0 NEXT HO 
TEST hD CT - FINISHED 
N@ - 00 SACK F0R NEXT HD 
VES - RETURN 


PICK UP BUFF ADDRESS AND - 
SAVE IT 

INCREMENT Tfc W0RD C0UNT , 

PICK UP W0RD C0UNT 
INCREMENT TB RETURN ADDRESS 
NEGATIVE MBft® COUNT - 
SAVE IT 

LOAD CARR RETURN ♦ LINE FEED 
0/P THFM 

LOAD 1ST WD 9»F BUFF 
0/P 1ST HD 

INCREMENT BUFF ADDRESS 

FINISHED 

NO 

YES - LOAU CARR RET, BELL 

0/P 

EXIT 


- TEST F0R ASR 0R H.S.P.T. 

- SNS 0 0N - H.S.P.T. 

- SNS 0 OFF - I/P BINARY 
DATA 0N ASR-33 READER 


I/P BINARY DATA 0N 




o 
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0280 00337 2540Q4Q0 
0281 00340 00000067 
0282 00341 12000104 
0283 00342 12000344 
0284 00343 11000330 
0285 00344 00008000 
0286 00344 00000000 
0267 00345 00000000 
0266 00345 01000400 
0269 00346 15050000 
0290 00347 11100351 
0291 00350 11000356 
0292 00351 01077771 
0293 00352 55100000 
0293 00353 20000000 
0293 00353 00422027 
0293 00353 04420040 
0294 00353 25400400 
0295 00354 00000067 
0296 00355 11200344 
0297 00356 12000301 
0298 00357 25400501 
0299 00360 00000006 
0300 00361 00000000 
0301 00362 00130403 
0302 00363 11000365 
0303 00364 11200344 
0304 00365 01077771 
0305 00366 55100000 
0305 00367 20000000 
0305 00367 00422027 
0305 00367 04420040 
0306 00367 25400400 
0307 00370 00000067 
0306 00371 01077771 
0309 00372 55100000 
0309 00373 20000000 
0309 00373 01222017 
0309 00373 01433440 
0310 00373 12000301 



OAC 

BIN 


DATA 

55 


SPB 

CKSM 


SP0 

CKSI 


BRU 

MAGT 

m 

CKJl 

»»• 

»• 

» 


LAA 

BIN 


CMA 

* * 150000 


BRU 

• ♦2 


BRU 

ASK 


LAA 

s-7 


CALL 

BSWR 


OAC BIN 
OAT * 55 
bru* cksi 

ASK 5PB ASR0 
OAC INQR 
DATA 6 
HIT 

SNS 3 
BRU 60 F 
BRU* CKU 
E0F LAA s- 7 
GALL BiWW 


UAC BIN 
DATA 55 
LAA s-7 

CALL ES0F7 


SPB ASRB 


oo 


o 

Catalog No. 310005A 

HIQH SPEED TARE READER 

CHECK SUM R0UTINE 
- CHECK F0R A $ 


- FIRST WO 0F BINARY DATA 
IS IT A % 

- N0 - WRITE BINARY 

- YES 

- N(J - WRITE BINARY 


- RETURN 

TYPE THE MESSAGE 
SNS 3 TiS HLT 

WAIT F0R 0PERAT0R 

- TEST SNS 3 

- 0N 

- 0FF - RETURN 
WRITE END BF J0B CB0.E 


WRITE AN END 0F FILE 


TYPE THE MESSAGE: 
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0311 00374 25400477 

0312 00375 00000002 

0313 00376 00000000 

0314 00377 11100376 

0315 00400 00000067 BIN 

0316 00467 00000000 HOLU 

0317 00470 00000000 ADDR 

0318 00471 00106607 CR8L 

0319 00472 00106612 CRLF: 

0320 00473 00177400 DELE 

0321 00474 00177712 054 

0322 00475 00141713 MfcSO 

0322 00476 00151715 

0323 00477 00142717 E0J 

0323 00500 00145240 

0324 00501 00151727 INOR 

0324 00502 00120263 

0324 00503 00120324 

0324 00504 00147640 

0324 00505 00144314 

0324 00506 00152240 

0325 00507 70400000 


DAC EBJ "fcBJ" 

DATA 2 

HLT 

BRU »-l 
BSS 55 

• »• 

DATA ‘106607 
DATA *106612 
DATA ‘177400 
DATA -54 
DATA “ CKSM “ 

DATA “E0J“ 

DATA “5W 3 T0 HLT • • 


END STRT 
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l 




